home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb42235.lsp < prev    next >
Lisp/Scheme  |  1998-03-15  |  2KB  |  50 lines
  1. ;=============422.35 Verbindungsprofil
  2.  
  3. (defun C:42235A ( / )
  4.      (EAITDBL "0042235")
  5.      (princ (strcat "\n\n" EAITbez1))
  6.      (EAITvari)
  7.      (EAITvars)
  8.      (setvar "ORTHOMODE" 1)
  9.      (setvar "OSMODE" 0)
  10.      (EAITmsg "mb_mld15" "\n" "019" nil)      ;Absetzen/Drehwinkel...
  11.      (setq P1 (getpoint))
  12.      (command EAITege (strcat EAITpfn "0042235A") P1 "" "" EAITofkei pause)
  13.      
  14.      (setq AIT-elx (ssname (ssget EAITgetl) 0))
  15.      (redraw AIT-elx 3)
  16.      
  17.      (setvar "ORTHOMODE" 0)
  18.      (setvar "OSMODE" 9)
  19.      (EAITmsg "mb_mld15" "\n" "020" nil)      ;Positionieren von  <END/PUN>...
  20.      (setq P3 (getpoint))
  21.      (setvar "OSMODE" 0)
  22.      (EAITmsg "mb_mld15" "\n" "021" nil)      ;Positionieren nach ...
  23.      
  24.      (EAITbpt EAIT_bpt1 EAIT_bpt2 nil)
  25.      (setq P2 (getpoint P3))
  26.      (if (= P2 nil)(setq P2 (EAITrpt)))
  27.  
  28.      (setvar "OSMODE" 0)
  29.      (command EAITsch AIT-elx "" P3 P2)
  30.  
  31.      (setvar "OSMODE" 0)
  32.      (setq Wi (EAITbw))
  33.      (setq P1 (EAITbp))
  34.  
  35.      (EAITmsg "mb_mld16" "\n" "005" " ?") ;Welchen Abstand haben die Profile ?
  36.      (initget (+ 2 4))
  37.      (setq Li (getdist " "))
  38.      
  39.      (command EAITege "" (polar P1 (+ Wi (EAITgib 180)) Li) "" "" (+ (EAITbig Wi) 180))
  40.  
  41.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 7.5) "" "" ""
  42.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  43.      )
  44.  
  45.      (EAITvarz2)
  46.      (princ)
  47.     
  48. );defun 
  49.  
  50.